   4 :return 
   5 .SOUND GRAPH
   6 .CHUCK THOMKA 28AP79
  10 clear ;NT=0
  20 for A=16to 23
  30 print #1,A;next A
  40 M=KN(1)+128
  50 if M=V goto 90
  60 V=M
  80 Y=-32;gosub 200
  90 L=L-JY(1)
 100 if L<1L=1
 110 if L>8L=8
 120 Y=48-8mul L
 130 box -74,Y,12,7,2
 140 CX=-77;CY=Y
 150 print #1,15+L
 160 if TR(1)gosub 200;&(15+L)=V
 170 goto 40
 200 box 6,Y,148,7,2
 210 if Vdiv 2=0goto 230
 220 box Vdiv 4-68,Y,Vdiv 2,3,1
 230 CX=64;CY=Y
 240 print #1,V;return 
:return ;run 
